my $string = "bob 299 frank 107 ted 300";
my %hash = split /\s+/, $string;

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

##</code><code>##

my $file = "/home/andrew/data.txt";
my @array;
open (FOO, $file) or die "can't open $file";

while (<FOO>) {
    @array = (@array, split /\s+/, $_);
};

foreach (@array) {
    print "$_\n";
};