Select Code to Download

use Data::Dumper;

...
          [5,15,25,35,'',55]
        ];
=cut

sub pivot {
    my @src = @_;
...

    return @dest;
}