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

my %replace = (name => 'Joe',
               fun  => 'a game');

while (<DATA>) {
    for my $key (keys %replace) {
        s/\$$key/$replace{$key}/g;
    }
    print;
}

__DATA__
Hullo $name,
are you ready for $fun?