#declare a variable named line and assign value 'abcd' to it
#split the variable line ("abcd") into 1 char part
#show/print the 1st character, which is 'a'
#declare a variable named line and assign value 'x' to it
#if the 1st character for $line is equal to $x, show/print "Hello"
if ($arr eq $x)
Based on your coding, the output should be 'a' only. Unlesss....... In your world, 'a' is equal to 'x'. :D
If the OP had enabled warnings, and named the script something other than a number, then the following warning would have been helpful:
Argument "/home/david/Programming/Perl/weird.pl" isn't numeric in array element at /home/david/Programming/Perl/weird.pl line [whatever].