@files = sort {$a->{from} <=> $b->{from}}
# strip out upgrades which don't need to be run
grep {$_->{from} >= $current_version } @files;
@files = sort {$a->{from} <=> $b->{from}}
# strip out upgrades which don't need to be run
grep {$_->{from} >= $current_version } @files;