ikegami++

Note that you can also convert your multiple if statments into direct access via a hash:

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;
[download]

Output:

160001 123.4  5
170001 234.9  9
670002  44.8 11