my %test_hash = do 'File_a.pl';

foreach (keys %test_hash)
{
    print "$test_hash{$_}\n";
}