diff --git a/genect_rnaseq/fpkm_subset_panel.pl b/genect_rnaseq/fpkm_subset_panel.pl
index 4c37da57d943a8f4d9740700b24e011fc1af6b9b..b7c2d41a80e5d4959ad9f09346c6724385ee2aec 100755
--- a/genect_rnaseq/fpkm_subset_panel.pl
+++ b/genect_rnaseq/fpkm_subset_panel.pl
@@ -1,15 +1,13 @@
 #!/bin/bin/perl
-use strict;
-use warnings;
 use diagnostics;
 use Getopt::Long;
 
 
-my ($genelist,$fpkm_file) = ("") x 2;
+my ($genelist,$fpkm_file,$geneinfo) = ("") x 3;
 
 GetOptions( 'g|genes=s' => \$genelist,
             'f|fpkm=s' => \$fpkm_file,
-	    'i|geneinfo=s'=> \$refinfo);
+	    'i|geneinfo=s'=> \$geneinfo);
 
 my $fpkm_out = $fpkm_file;
 $fpkm_out =~ s/\.fpkm.+txt/\.fpkm.capture.txt/;