use strict;
use warnings;

my @array = (1..20);
my @array3 = sort { $a % 5 <=> $b % 5 } @array;
print @array3;