Easiest, and cheaper than the hash solution:

    $same = not grep { $_ ne $array[0] } @array;
[download]

    -- Chip Salzenberg, Free-Floating Agent of Chaos