#!/usr/bin/perl

use PDL;

my %hash = (
  one => pdl(1,2,4),
  two => pdl(5,7,9),
);

$hash{one} += pdl(7,8,11);

print $hash{$_},"\n" for keys %hash;