foreach (my $input) @data { my ($key, $value)= parseline ($input); $results{$key}=$value; }