@country
= (
'India'
,
'Qatar'
,
'Bangladesh'
,
'France'
,
'Italy'
);
@capital
= (
'Delhi'
,
'Lahore'
,
'Dhaka'
,
'Paris'
,
'Rome'
);
print
"Countries in sorted order: \n"
;
print
sort
@country
;
print
"\n"
;
print
"\nCombining both the lists in sorted order:\n"
;
print
sort
@country
,
@capital
;
print
"\n"
;
@list
= (19, 4, 54, 33, 99, 2);
@s
=
sort
{
$b
<=>
$a
}
@list
;
print
"\nPrinting numbers in sorted order:\n"
;
foreach
$i
(
@s
)
{
print
"$i, "
;
}