#!/usr/bin/perl
use strict;

use File::Find;

my @dirs=("/home");
my @files=();
                    
sub dirscan {
        if ($_ =~ /.imap$/) {push @files,$File::Find::name}
}

find(\&dirscan, @dirs);
foreach (@files) {print "$_\n"}