foreach my $element (@column)
#       ^^