#!/user/bin/perl
print"enter the rang of array:\n";
chomp($c=<STDIN>);
while($i=1){
print"while loop round:$i\n";
	if($i>3){
		exit;
	}
	if($c =~ /^\[|[a-z,A-Z]+/){
		print "it is invalid please enter digits\n";
		#print"enter the rang of array:\n";
		#chomp($c=<STDIN>);
	}
	elsif($c =~ /^[1-9]+/){
		print "you are entered correct input\n";
		last;
	}
$i++;
}
@a=();
$b;
$1;
print"Enter the array:\n";
for($i=0;$i<$c;$i++){
chomp($b=<STDIN>);
$a[$i]=$b;
}
#for($i=0;$i<@a;$i++){
#print"the array $a[$i]\n";
#}
#print"the PSI ID's:";
foreach $val(@a){
#print"####$val###\n";
	if($val=~ /^([a-z]+)\s?PSI\-ID\-?(\d+)/){
	print"value=$2\n";
	push(@b,$1);
	push(@c,$2);
	}
}
print"the pax id's with PSI:\n";
for($i=0;$i<=@b;$i++){
	for($j=0;$j<=@c;$j++){
		if($i==$j){
			print"$b[$i] $c[$j]\n";
		}
	}
}