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

my @devices = ("127.0.0.1", "localhost");

my $command = 'ssh';
my @params = ('-p', 22);

# These is to bypass the prompt of each node for new ssh connection.
foreach my $device (@devices) {
    # create an Expect object by spawning another process
    push @params, $device;
    my $exp = Expect->spawn($command, @params);
    $exp->send("yes");
}

# Second step do the same with ssh-copy-id (ssh keys)
# You said that all nodes share the same password so it should be very easy to create ssh keys for all nodes from the main node.