1

print "\nEnter the RAW disks you need\n";
my @array = (lc(<>),lc(<>));
use Data::Dumper;
print Dumper @array;

$VAR1 = '/dev/rdsk/c3t3t3
';
$VAR2 = '/dev/rdsk/c3t3t3
';

2

my @array = lc(<>);
use Data::Dumper;
print Dumper @array;

/dev/rdsk/c3t3t3 /dev/rdsk/c3t3t3
$VAR1 = '/dev/rdsk/c3t3t3 /dev/rdsk/c3t3t3