Perl | List Functions

#!/usr/bin/perl

# Initializing list with alphabets A to Z
@list = (A..Z);

# Printing the original list
print "List: @list\n";

# Using join function introducing
# hyphen between each alphabets
print "\nString after join operation:\n";
print join("-", @list);

# Initializing a list
@list = ("Raj", "E123", 12000);

# Reversing the list
@rname = reverse(@list);

# Printing the reversed list
print "Reversed list is @rname";

# Initializing a scalar
$string = "GeeksforGeeks";

# Reversing a scalar
$r = reverse($string);
print "\nReversed string is $r";

# Initializing a list
@Dept = ('comp', 'inft', 'extc', 'mech');

# Converting first character capital
@upd1 = map(ucfirst, @Dept);

# Printing list
print "List with First char capital: ";
foreach $i (@upd1) 
{
   print "$i, ";
}

# Converting all characters capital
@upd2 = map(uc, @Dept);

# Printing list
print "\nList with all char capital: ";
foreach $i (@upd2) 
{
   print "$i, ";
}

# Initializing two lists
@country = ('India', 'Qatar', 'Bangladesh', 'France', 'Italy');
@capital = ('Delhi', 'Lahore', 'Dhaka', 'Paris', 'Rome');

# Printing countries in sorted order
print"Countries in sorted order: \n";
print sort @country;
print "\n";

# Printing sorted country and capital values
print "\nCombining both the lists in sorted order:\n";
print sort @country, @capital;
print "\n";

# Initializing a list with number
@list = (19, 4, 54, 33, 99, 2);

# Sorting in descending order
@s = sort{$b <=> $a} @list;
print "\nPrinting numbers in sorted order:\n";
foreach $i(@s)
{
    print "$i, ";
}