$ perl -Mstrict -Mwarnings -E '
    my @x = qw{VALUE10 VALUE2 VALUE1};
    say "*** Sorting Mistake ***";
    say for sort @x;
    say "*** Sorting Correctly ***";
    say for sort { substr($a, 5) <=> substr($b, 5) } @x;
'
*** Sorting Mistake ***
VALUE1
VALUE10
VALUE2
*** Sorting Correctly ***
VALUE1
VALUE2
VALUE10