print table ({width => 200},
   (map {
      $my @t = @$_;
      Tr ({bgcolor => "#dddddd"},
          foreach $fil (@t) {
             td ("$fil") }) } @fil_tbl ));