while(<>){ chomp; my ($wrd, @data) = split; $kernel{$wrd} = norm( pdl(@data) ); ... my $sim = inner( $kernel{ $w1 }, $kernel{ $w2 } );