my @categories = qw ( Horror Sci-Fi Comedy Action );
while ( @categories ) {
   my ( $oval ) = shift @categories;  # odd value
   my ( $eval ) = shift @categories;  # even value
   printf ("%15s %15s\n", $oval, $eval );
}