Select Code to Download

use strict;
use warnings;
...
}

print @transcript_id;

foreach my $element (@column)
#       ^^

if ($element eq 'u' ||
    $element eq 'x' ||
...
{
    push @transcript_id, $column[10];
}

foreach $element (@column)
{
...
        last;
    }
}