foreach my $line (@customerarray) {
    my ($memono, $cusref, $datestamp) = split '::', $line;
    if ( ($timestamp - $datestamp) > 1296000 ) {
        next;
    } else {
        $line = $line . $line . "\n";
    }	
}

print FH "$item";