You could do something like this:

sub get_alphb_fr_tpl
{
  my $aref = shift;
  my @str  = grep (!/[\d+\s+]/,map{ split " ",$_} @{$tpl}) ;
  my $lst = '';
  my @out;
  for(@str){
     $out[@out] = $_ unless $lst eq $_;
     $lst = $_;
  }
  print Dumper \@out ;
  return;
}
[download]

I am sure that there is a more elegant way of doing it, but this works.