use strict;
use Data::Dumper;
my $test = "hello world";
my %frags = ();
if($test =~ m/(\w+)\s(\w+)/g) {
            %frags = (
                    'a' => $1,
                    'b' => $2);
    }
print Dumper(\%frags);
my @sexy_array;
foreach my $key (keys %frags) {
        push(@sexy_array, $frags{$key});
}
print Dumper(\@sexy_array);