Help for this page

Select Code to Download

Select or download this

my $AoAref = [
    [  10001,   2.71, 4 ],
...
my ( $arg1, $arg2, $arg3 ) = @HoA{ qw( 160001 170001 670002 ) };

printf "%5d %5.1f %2d\n", @{$_} for $arg1, $arg2, $arg3;