#!/usr/bin/perl

use strict;
use warnings;
use diagnostics;

PrintInRevWordOrder ("The tall brown cat walked down the alley-way.");

sub PrintInRevWordOrder {
  my @string = split /\s+/, reverse shift;

  print reverse($_) . " " for @string;
}