my $AoAref = [ [ 10001, 2.71, 4 ], [ 160001, 123.4, 5 ], [ 170001, 234.9, 9 ], [ 670002, 44.8, 11 ], ]; my %HoA = map { $_->[0] => $_ } @{$AoAref}; my ( $arg1, $arg2, $arg3 ) = @HoA{ qw( 160001 170001 670002 ) }; printf "%5d %5.1f %2d\n", @{$_} for $arg1, $arg2, $arg3;