use Data::Dumper;
use warnings;

open(DAT,"< datafile.txt") or die $!;

while (my $line=<DAT>){
        chomp $line;
        eval $line;
        if ($@){
        print $@;
        }
}


print Dumper($main::fee,$fi,$fo,@fum);