my @list = qw/malay manab milan anand/;
my $count1 = scalar @list; # these are
my $count2 = @list;        # the same