#! /usr/bin/perl
use strict;
use warnings;
use 5.010;


# read file names from argument list
my @files = @ARGV;


for my $file ( @files ) {
    print "say something: ";
    chomp ( my $input = <STDIN> );

    say "$file: $input";
}