if ($action eq '-e')
{
        my @cryptedText = cryptText($key,$action,\@input);
        my $i = join("\n",@cryptedText); 
        print $i;
}