find largest number in array

I spent three evenings trying to rap my head around this problem (I've never been able to grasp programming), to find the largest number in an array without using sort. Google showed a couple solutions but they used sort. Here's what I came up with and I'm pretty proud of it. Did I do good or am I still not grasping the concept?

#!/usr/bin/perl

@array(4,9,1,3,2);

if(($array[0] > $array[1]) && ($array[0] > $array[2]) && ($array[0] > $array[3]) && ($array[0] > $array[4])){                                                     
print "$array[0] is the largest number in the array\n";                                                                                                           
        }elsif(($array[1] > $array[0]) && ($array[1] > $array[2]) && ($array[1] > $array[3]) && ($array[1] > $array[4])){                                         

print "$array[1] is the largest number in the array\n";                                                                                                           
        }elsif(($array[2] > $array[0]) && ($array[2] > $array[1]) && ($array[2] > $array[3]) && ($array[2] > $array[4])){                                         

print "$array[2] is the largest number in the array\n";                                                                                                           
        }elsif(($array[3] > $array[0]) && ($array[3] > $array[1]) && ($array[3] > $array[2]) && ($array[3] > $array[4])){                                         

print "$array[3] is the largest number in the array\n";                                                                                                           
        }elsif(($array[4] > $array[0]) && ($array[4] > $array[1]) && ($array[4] > $array[2]) && ($array[4] > $array[3])){                                         

print "$array[4] is the largest number in the array\n";        

}