# File:	sort0.pl
# Title: 	Sort string: transform in array then apply sort(ARRAY)
# Author:	Mihaela Malita
#		Input a string? abbcdab
#		Length String is 7
#		Sring is a b b c d a b 
#		Sorted string is aabbbcd

print "Input a string? "; 
$a = <STDIN> ;
chop($a);
@R = split('',$a); 		# transforms string in array
						# @R = {'a','v','c','b');
print "Length String is " , length($a);
print "\nString is @R. \nSorted string is ", sort(@R);
exit;