my %data_hash = map { /(\w\s+\d)/ => $_ } @data2;

for my $key ( %data_hash ) {
    print "$data_hash{$key}\n" if grep { /^$key/ } @data1;
}