Pridobitev podatkov in sortiranje

#!/usr/bin/env perl
use warnings;
use strict;
use feature 'say';

my $input = <<EOL;
2011-01-04 00:00:00.000 _01 99
2011-01-01 08:58:08.000 _02 01
2011-01-02 00:00:00.000 _02 01
2011-01-03 00:00:00.000 _02 99
2011-01-03 15:58:56.000 _02 01
2011-01-03 19:01:45.000 _02 99
2011-01-04 00:00:00.000 _01 01
2011-01-04 08:58:32.000 _02 01
EOL

sub one_way {
    join "\n", map { "$_->{timestamp} _$_->{VP1} $_->{VP2}" }
      sort { $a->{timestamp} cmp $b->{timestamp} || $a->{VP2} <=> $b->{VP2} }
      map { /^(?<timestamp>.+?) _(?<VP1>\d+) (?<VP2>\d+)/; +{%+} }
      split /\n/, shift;
}

sub or_another {
    join "\n", map { $_->[0] }
      sort { $a->[1] cmp $b->[1] || $a->[2] <=> $b->[2] }
      map { [ $_, /^(.+?) _\d+ (\d+)$/ ] }
      split /\n/, shift;
}

say one_way $input; # I like it better
print "\n";
say or_another $input;

('_' + RIGHT('00' + CONVERT(nvarchar, VP2), 2)

SELECT ....  
FROM Whatever
ORDER BY Datum, VP2