I think you meant

    my ($A) = $a =~ /(\d+)\.gz$/;
    my ($B) = $b =~ /(\d+)\.gz$/;
[download]