for ($i = 0; $i < @data; $i++)
{
    %line = %{ $data[$i] };
        print $i.")".$line{'pass'}."\n";
}