#!/usr/bin/perl

my $foo = 1;

$foo = 'bar';