$file{$key}{sequence} = $key;  # Old stuff was : sprintf '%03d.tabular', $file{$key}{ID};