#!/usr/bin/perl -w
use strict;

my $bit="ace"; my (%hash);
while (<DATA>)
{
  while($_ =~ /$bit/g)
  {
    $hash{$_}++;
  }
}

##</code><code>##

my $bit="ace"; my (%hash, @rank);
while (<DATA>)
{
  while($_ =~ /$bit/g)
  {
    $hash{$_}++;
  }
  push @{$rank[$hash{$_}]}, $_;
}

# see how the structure looks like
# use Data::Dumper;
# print Dumper \@rank;

for(@rank)
{
  for(@$_)
  {
    print;
  }
}