Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w 
use strict;
...
print "Sorted costs:  ";
map { print $_->{ Estimated_Cost } . ", " } @data;
print "\n\n";
  2. or download this
    1,132,1984
2,93,1748
...
7,28,1301
8,35,1305
9,47,1091
  3. or download this
    $VAR1 = [
          {
...
        ];

Sorted costs:  1091, 1299, 1301, 1305, 1372, 1748, 1984, 2948, 3105,