buscar texto na string

[fjucks]

nem cara, tipo so queria sabe como faço p por isso em ordem, nao axo que seja logica de prog, pq pelo que fe o codigo ele percorre a string e vai atribuindo...qual parte do codigo inverte a ordem? seria nas referias da $escalar dentro do hash?

[fjucks]

veja como eu tinha feito...fico um lixo, mas tah quase dando certo rs

#!/usr/bin/env perl

use strict;
use warnings;


open IN, $ARGV[0] or die 'nao tem nao mano';
my @array_familias=<IN>;
my @array_information = ();
my @array_numberSeq = ();
my $cont = 0;
my $string1= 0;
my $string2= 0;


sub capturaQtdSeqFam(){
my $i = 0;
my $a = 0;

($string1) = $array_familias[$i] =~/(RF\d{5})/;
while($#array_familias>$i && $array_familias[$i] =~/(RF)/){
($string2) = $array_familias[$i] =~/(RF\d{5})/;
if($string1 eq $string2){
$cont++;
}else{
push(@array_information,$string1." ",$cont."\n");
$cont=0;
($string1) = $array_familias[$i] =~/(RF\d{5})/;
}
$i++;
}
}
&capturaQtdSeqFam;
print @array_information;

só que ele nao imprime a familia RF00500