Регулярка и хеши в perl

use Data::Dumper;

my ($interface, $ip) = 'em1 192.192.192.192' =~ m{^(\S+) \s (\d+\.\d+\.\d+\.\d+)$}x;
print Dumper({$interface => $ip});

echo 'em1 192.192.192.192\nem2 127.0.0.1' | perl -alne '$a{$F[0]} = $F[1] }{ print $a{"em1"}; print $a{"em2"}'

my ($interface, $ip) = split /\s+/ => 'em1 192.192.192.192';

echo 'em1 192.192.192.192\nem2 127.0.0.1' | perl -MData::Dumper -alne 'push @a, {$F[0] => $F[1]} }{ print Dumper(@a)'

use Data::Dumper;

my $result = {};
{
    my $file = q{};

    open my $fh, '<', $file or die $!;
    while (my $each_line = <$fh>) {
        chomp $each_line;

        my ($interface, $ip) = split m{\s+}x, $each_line;

        $result->{$interface} = $ip;
    }
    close $fh;
}

print Dumper($result);