#!/usr/bin/perl

use Benchmark;

sub double {
    $teststring = '';
    if( $teststring ne "" ) {
        return 1;
    } else {
        return 0;
    }
}

sub single {
    $teststring = '';
    if( $teststring ne '' ) {
        return 1;
    } else {
        return 0;
    }
}

timethese( 1000000, { double => 'double( )',
                  single => 'single( )' } );