#!/bin/bash/perl @tests; for($i=0; $i-4; $i++){ my @char = ('M','A','N','O'); my $len = 6; my $string1; my $string2; while($len--){ $string1 .= $char[rand @char]; $string2 .= $char[rand @char];}; print "$string1\t$string2\n"; $string = $string1.' '.$string2; push(@tests, $string); }