#!/usr/bin/perl

use strict;
use warnings;

chomp( my @input = <> );