@file_data = map  { $_ -> [0]}
                 sort { $a -> [1] cmp $b -> [1]}
                 map  {[$_ => (split /\|/) [$variable - 1]]}
                 @file_data;