#!/usr/bin/perl -w
use strict;

open FLIGHTS, "flug.tsv"
  or die "Can't open: $!\n";

my $line;
while ($line = <FLIGHTS>) {
  my ($route, $start, $dest, $weekday, $time) = split("\t", $line);
  print "--- flight record\n";
  print "route # $route\n";
  print "from $start to $dest\n";
  print "on $weekday at $time\n";
}
close FLIGHTS;