if(
 $f[0] eq $f[1] and 
 $f[0] eq $f[2] and 
 $f[0] eq $f[3] and 
 $f[0] eq $f[4] and 
 $f[0] eq $f[5] 
) {
   ...
}
[download]