#!/usr/bin/perl -w 

#hs1A_50 YBR082C_splicingValues.txt -115
open(IF,"shortlist");
while($a=<IF>){
@b=split(/ /,$a);
$txt = $b[1];
$txt =~ s/\.txt//;
@c = split(/_/,$txt);
$gene=$c[0];
system("rm goodsmits/$b[0]/*$gene*");
}