open(IN,"a.txt");
$a = <IN>;
$frg = &Sub_a($a);

print "$frg\n";
close(IN);

sub Sub_a{
$frg2=False;
if(@_ eq "a"){
$frg2=True;
}
return $frg2;
}
------------------------------------
>cat a.txt
>a
------------------------------------
なぜか上手くいきません〜。。。
すみませんが、ヒントください！